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MODULE BADSCN ( 


LANGUAGE (BLISS32), 3 
geen NT = WOE 18836 ‘ 
BEGIN ; 
' 3 
PITITILILILLL LLL LIT LILLILLLLL LLL Ps 
'@ ° 
'® COPYRIGHT (c) 1978, 1980, 1982, 1984 B * ‘ 
'® DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * ‘ 
M ALL RIGHTS RESERVED. - ‘ 
is THIS ee. is FURNISHED anes A LICENSE AND MAY BE USED AND copite * | : 
'w ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * . 
'w INCLUSION OF mae ABOVE COPYRIGHT NOTICE. THIS SOFTWARE NY E « . 
'w COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * ; 
'w OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * ; 
be TRANSFERRED. s : 
.* | . 
'w THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
'w AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * | 
CORPORATION. - 
ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * | 
'w SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
i] 
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1 

FACILITY: F11ACP Structure Level 2 
i ABSTRACT: 


This routine scans the pending bad block List and enters or removes 
entries. | 


i ENVIRONMENT : 


STARLET operating system, including privileged system services 
and internal exec routines. 


AUTHOR: Andrew C. Goldstein, CREATION DATE: 22-May-1978 10:33 


ee EE EEE Ome 


i MODIFIED BY: 
v03-003 cose’ Christian D. Saether 29-Dec-1983 
Use L_NORM Linkage and BIND_COMMON necro. 
v03-002 ACG0367 Andrew C. Goldstein, 26-Oct-1983 19:48 
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Update highwater mark in BADLOG.SYS when extending 


— ts 2d ss 2s 2 2) ts 


shee Hib ne a history moved to (F11B.SRCJF11B.REV 


Sep- VAX-11 Bliss-32 V4,0-742 

18-56 =3687 138% 3: 33: 3 DISKSVMSMASTER:CF11X.SRCJBADSCN.B32; ? ef 5 
! v3-001 $1J0312 Steven T. Jeffrey 2-Jun-1982 

Pix addressing mode to tix out-or-fenge reference. 

i B0101 ACG0121 Andrew C. Goldstein, 16-Jan-1980 21:36 

Make context save and restore into subroutines 

B0100 ACcG00001 Andrew C. Goldstein, 10-Oct-1978 19:59 

i 


LIBRARY ‘SYSSLIBRARY:L1B.L32'; 
REQUIRE ‘SRCS:FCPDEF.B32'; 
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i FUNCTIONAL DESCRIPTION: 


14-Sep-1984 
GLOBAL ROUTINE SCAN_BADLOG (FID, BASE_VBN, BASE_LBN, MODE, BLOCK_COUNT) 


4 
1$-sep-1986 23:55:15 VAX=11 BLiss-32_v4.0-742 
re $333508  WeecbbnGhastensch tic. sae zeapscw.832: 


This routine scans the volume bad block ay Mas the specified block(s) 


ande enters or removes them, depending on 


i CALLING SEQUENCE: 


e mode. 


SCAN_BADLOG (ARG1, ARG2, ARG3, ARG4, ARGS) 


i INPUT PARAMETERS: 
ARG1: 


file ID of file containing bad block 


ARG2: VBN in file of bad blo 
ARGS: LBN of bad block 
ARGS: mode of operation 


' 
' 
' 
' 
' 
' 
! 
' 
' 
' 
! 
' 
' 
' 
' 
: ENTER_READERR 
: ENTER _WRITERR 2 
ARGS: count of blocks to process (remove only) 
‘ 
' 
' 
' 
' 
' 
' 
' 
' 
' 
' 
' 
' 
' 
' 
' 


i IMPLICIT INPUTS: 
NONE 

i QUTPUT PARAMETERS: 
NONE 

i IMPLICIT OUTPUTS: 
NONE 

i ROUTINE VALUE: 
NONE 


i SIDE EFFECTS: 


volume bad block list file altered 


BEGIN 
MAP 
FID 
LABEL 
SEARCH_LOOP; 
LOCAL 
VBN, 
LBN 
FIRST_FREE 
FREE OFFSET, 
FIB 
WINDOW 
FCB 


file ID argument 
bad block List search 


VBN of current block of file 

LBN of current block 

VBN containing first free slot 
byte offset in block of free slot 
record pointer 

local pointer to secondary FIB 
address of bad block file window 
address of bad block file FCB 


: LLNORM NOVALUE = 


4 
1b-se =1984 23:55:15 VAX-11 Bliss-32 V4.0-742 Page 4 
ane p= 1882 $3:35500  NaecdumGhaSteRsch tig scnezBapsen.e32:1°%° c24 
HEADER : REF BBLOCK; ! address of bad block file header 


BIND_ COMMON; 
EXTERNAL ROUTINE 


SAVE CONTEXT : LLNORM, ! save reentrant context area 
RESTORE CONTEXT : L-NORM, ' restore reentrant context area 
OPEN_FICE : LINORM, ' open a data file 

READ DATA : LUNORM, ! read a file block 

CLOSE_ FILE : LINORM, ! close the data file 

CREATE BLOCK : LINORM, ! fabricate a block buffer 
MARK _DIRTY : LINORM, ! mark buffer dirty 

READ HEADER : LLNORM, ' read file header 

EXTEND : LINORM, ! extend a file 

CHECKSUM : LLNORM, ' 

WRITE HEADER : L_NORM, ! write a file header 

MAP_VEN : LINORM; ! map virtual to logical 


e if there is a bad block List file. 
! If not, forget the whole thing. If there is, set up secondary context and 


Check the reserved file count to se 
open the file. 


IF .CURRENT_VCBCVCB$B_RESFILES] LSSU BADLOG_FID THEN RETURN; 


| 

' checksum file header 

SAVE_CONTEXT (); 
= OND 


_FIB_NUM) = BADLOG_FID; | 
FIBCFIBSW-FID-SEQ) = BADLOG_+ ID; 


WINDOW = OPEN_FILE (FIBCFIBSW_FIDIJ, 1); 


' Scan the pending bad block file for a match on the given LBN (in remove mode, 
scan for the given range). Also look for the first available free space. 


fo Teale al eal taleal aleal al eal al eal ele Poe oF oe oe oe oe oP oe oF 


nn" 


IRST_FREE = 0; 
VBN = 0; 


SEARCH_LOOP: BEGIN 
WHILE T DO 

BEGIN 
VBN = .VBN + 1; 
P = READ DATA (.WINDOW, .VBN, 1); 
IF .P EQ 0 THEN EXITLOOP; 


pace J FROM 0 TO 512/PBBSC_LENGTH - 1 


BEGIN 
4 znOee EQL REMOVE _BADBLOCK 


BEGIN 
IF epee Lan GEQU .BASE_LBN 

+ PBB$L_LBN) LSSU .BASE_LBN + .BLOCK_COUNT 
BEGIN 
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SO OIOIONISS 


WR 
-EXTRN BUGS_ADRNOTMAP 
-PSECT SCODES,NOWRT,2 
OBFC 00000 -ENTRY SCAN_BADLOG, Save R2,R3.R4,R5,R6,R7,.R8B,RI,- ; 1061 


R 
5E 08 C2 00002 SUBL2 #8, SP : 


F 4 
BADSCN 15-Sep-1984 23:55:15 | VAX-11 Bliss-32 V4.0-742 Page 6) 
#042000 12-808=}38e $3:39:08 DISKSVMSMASTER:CF11X.SRCJBADSCN.B32; 1 9 2d 
; 243 1 4 
; rk i 4 4 HEADER CFH2$B_IDOFFSET] GEQU (SBYTEOFFSET (FH2$L_HIGHWATER) +4) /2 
; 46 5 4 HEADERCFH2SL_HIGHWATER] = .BBLOCK CHEADERCFH2$W_RECATTRI], FATSW_EFBLKLJ; | 
5 248 1 ; 4 CHECKSUM (.HEADER); 
: 49 : 4 WRITE_HEADER (); 
: a4 1240 4 LBN = MAP_VBN (.VBN, .WINDOW); 
3 28 12461 4 IF .LBN EQL -1 | 
3 1 tg 4 THEN BUG_CHECK (HDRNOTMAP, FATAL, ‘Block just created not mapped'); 
: $34 1e43 4 Pos CREATE BLOCK (.LBN, 1, DATA TYPE); | 
: 5 12464 4 FREE_OFFSET = 0; 
: 256 1345 4 END 
: 257 1 46 4 
: 258 124 ELSE 
; 39 i 48 P = READ_DATA (.WINDOW, .FIRST_FREE, 1); 
: 261 1250 3 ! Now build the new bad block List entry. 
; 6¢ 1251 i 
: 26 1 26 
: 56s 33 P = .P + .FREE_OFFSET; 
: 266 1588 CHSCOPY (FIDSC_LENGTH, .FID, 0, PBBSC_LENGTH, PCPBBS$W_FIDJ); 
> 267 1256 3 PCPBBS$L_VBN) =".BASE_VBN; 
; 268 1257 3 PCPBBSL“LBN) = -BASE LBN; 
> 269 1258 3 PCPBBSB-COUNT) = .PCPEBSB_COUNT) + 1; 
: 270 1259 IF .MODE EQL ENTER READER 
: 271 1260 3 THEN PCLPBBS$V_READERR) = 1 
; , 1261 ELSE PCPBBSV-WRITERR) = 1; 
: 274 1568 MARK_DIRTY (.P); 
; 75 1$68 
; $78 1562 END; ! end of block SEARCH_LOOP 
; 278 1267 CLOSE FILE (. WINDOW); ' close the bad block List file 
> 279 1268 : RESTORE _CONTEXT (); 
; 280 1269 
; «281 1270 1 END; ! end of routine SCAN_BADLOG 
.TITLE BADSCN 
“IDENT \V04-000\ 
.EXTRN SAVE_CONTEXT, RESTORE_CONTEXT 
SEXTRN OPENFILE, READ DATA 
“EXTRN CLOSE FILE, CREATE BLOCK 
-EXTRN MARK DIRTY, READ_HEADER | 
“EXTRN EXTEND, CHECK 
-EXTRN WRITE HEADER, MAP_VBN | 
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70-000 12-8 08-19be 13:30:08 DISKSVMSMASTER:CF11X.SRCJBADSCN.B32; 1 9 02) 
a 50 00 0008 MOVL RO, HEADER ; : 
38 OA 3¢ AS p 88 CMPL eBir CB), 56(F CB) + 1218 ; 
11 s«1F BF BLSSU 108 : | ; 
18 A7 1 00 C Ov. vi, g4¢F 1B) + 1221) ; 
17 «A? C4 BISB2 #2, o3(FIB) ye ¢ ; 
DD 0008 PUSHL HEADER + 1223. ; 
DD OOOCA PUSHL FIB : ; 
00006 CF 02 FB 000CC CALLS #2, EXTEND : | ; 
1€ OA 86 D1 108: INCW § 30(HEADER) : 1237 ; 
28 6 1 D4 CMPB (HEADER) , #40 3 1233) 3 
I 007 BLSSU. 11 : ; 
4C A 1€ Ag C 9009 MOVZWL 3O(HEADER), 76(HEADER) : 1235 ; 
52 DD OOODE 11$:  PUSHL HEADER + 1237 ; 
00006 CF 01 FB OO0E CALLS #1, CHECKSUM : : 
00006 CF 90 FB OOOE CALLS #0, WRITE_HEADER + 1238 ; 
B DD OOOEA PUSHL WINDOW + 1240 ; 
04 AE DD OOOEC PUSHL VBN : : 
00006 cr : FB OO0EF CALLS #2, MAP_VBN : : 
FFFFFFFF © &F D1 O00F4 CMPL  sLBN, #- + 1241 : 
04 12 000FB BNE : F 
FEFF OOOFD BUGW + 1242 : 
0000* OOOFF .WORD  <BUGS_HDRNOTMAP! 4> : : 
04 DD 00101 12$:  PUSHL #4 + 1263) 
01 DD 00103 PUSHL #1 : 
50 0D 00105 PUSHL i” 3 
00006 CF 03 FB 00107 CALLS #3, CREATE_BLOCK : 
56 50 pO 0010C MOVL : | 
04 AE D4 O010F CLRL = FREE_OFFSET > 1244) 
OE 11 00112 BRB 14$ : 1212) 
01 DD 00114 13$:  PUSHL #1 + 1248 
59 DD 00116 PUSHL FIRST_FREE ; 
58 DD 00118 PUSHL WINDOQ : 
00006 CF 03 FB OO1IA CALLS #3, READ_DATA ; 
56 50 D0 OOF MOVL R ; 
56 04 AE C O1ge 14$: ADDL2 FREE_OFFSET, P : 1253 
10 00 04 BC 06 2c 001 6 MOVCS #6, SFID, #0, #16, (P) + 1255 
08 Ab 08 ac 7D $01 D MOva BASE_VBN. 8(P) : 1256 
07 Ab 96 001 : 15$: INCB (P) : 1258 
01 10 AC 0100135 16$:  CMPL MODE, #1 : 1259 
06 if 00139 BNEQ ; 
06 Ab 01 88 00138 BISB2 #1, 6(P) : 1260 
06 Ab 83 BB OOla1 178: Bese oo CP) : 1261 
ge DD O43 18$: PUSHL ; : 1263 
00006 CF gi FB O14 CALLS #1, MARK_DIRTY : 
B DD 0014C 19 PUSHL WINDOW : 1267 
90006 CF oi FB Ode CALLS #1, CLOSE_FILE : 
0006 CF 0 FB 0015 CALLS #0, RESTORE_CONTEXT : 1268 
04 00158 RET : 1270 


; Routine Size: 345 bytes, Routine Base: $CODE$ + 0000 


Be 1271 1 
8 1 % 1 END 
84 1275 0 ELUDOM 


; Elapsed Time: 00:49.9 
3 Lines/CPU Min: 589 
s yoscnce/ Putte: 43192 
3 f Used: 278 pages 
3 ee’ ation Complete 


1Foseoctgee 25:88:15 
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DISKSVMSMASTER : CF11X.SRCIBADSCN.B32;1 (2), 
| 


PSECT SUMMARY | 

Bytes Attributes 

345 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 

| 

Library Statistics | 

queceese Symbols -------- Pages Processing | 

File Total Loaded Percent Mapped Time | 

-$255$DUA28: CSYSLIBILIB.L32;1 18619 39 0 1000 00:02.0 | 

| 

: COMMAND QUALIFIERS | 
; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:BADSCN/OBJ=OBJ$:BADSCN MSRC$:BADSCN/UPDATE=(ENH$:BADSCN) 

; as 345 code ; 0 data bytes 


CHI 
vO! 


AL EQUIPMENT CORPORATION 
DENTIAL AND PROPRIETARY 


-oe. 
V4.0 


AH-BT13A 


DIG 
VAX/VMS CON 


7 
I 


IGI 
ONF 


016 


